﻿Public Class PrintPreviewUltraGrid
    Dim grid As IUltraGrid
    Private Sub PrintPreviewUltraGrid_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        Me.UltraGridPrintDocument1.Grid = grid
        Me.UltraPrintPreviewDialog1.ShowDialog()
    End Sub
    Public Sub setUltraGrid(ByVal grid As IUltraGrid)
        Me.grid = grid
    End Sub
End Class